home *** CD-ROM | disk | FTP | other *** search
/ Alles Voor Internet / Tout Pour Internet / alles voor internet.iso / MacInternet™ / Telnet / 5PM PowerMac / 5PM_Term_PPC.sea / Palettes Folder / Capture / Capture Recorder.rsrc / BTXT_5 < prev    next >
Text File  |  1994-03-15  |  623b  |  23 lines
  1. On mouseUp
  2.     Get btn "fName"
  3.     Put empty into path
  4.     Repeat with i = the number of chars in it down to 1
  5.         If char i of it is ":" then
  6.             Put char 1 to i of it into path
  7.             Get char (i + 1) to (the number of chars in it) of it
  8.             Exit Repeat
  9.         End If
  10.     End Repeat
  11.     Put it into oldName
  12.     Ask "Rename capture file as :" with oldName
  13.     If it is not empty then
  14.         Get replaceChars (it, ":", "-")
  15.         If it <> oldName then
  16.             Capture2 "Rename", path & oldName, path & it
  17.             If the result is not empty then
  18.                 Put path & it into btn "fName"
  19.             End If
  20.         End If
  21.     End If
  22.     Get RsrcData (btn "fName", "tfig", 128, btn "tmConfig")
  23. End mouseUp